<%
if Request.querystring("Status") = 1 then
Set oUpload = Server.CreateObject("ASPPW.upload")
oUpload.UserDiskQuota= 2 * 1024 * 1024
oUpload.RejectEmptyExtension = true
oUpload.FileExtensionList "*","txt", "gif" ,"jpg" 'remove '*', if you don't allow all types
oUpload.UpLoadPath = server.mappath("/") + "\test"
i=oUpload.Upload
Select Case i
case 1
sMsg = "File uploading ends normally."
Case -4
sMsg = "User's Disk Quota full. At least one file hasn't been saved."
Case -5
sMsg = "Path on server for uploading not found or invalid."
Case -6
sMsg = "File type for uploading is not allowed. At least one file hasn't been saved."
Case -7
sMsg = "Uploading exception."
Case -8
sMsg = "File access failure."
case else
sMsg = "Exception. Error Code is: " & cstr(i) & "."
End Select
response.write sMsg + "
"
response.write cstr(oUpload.NumofUploadedFiles) + " file(s) uploaded.
"
if oUpload.GetLastErrNum <> 0 then
response.write oUpload.GetLastErrDescription
end if
set oFiles = oUpload.UploadedFiles 'return a Collection
'response.write oFiles.count 'Sample operation to a collection
'response.write oFiles.item(1) 'Sample operation to a collection
set oForm = oUpload.Form 'return a Collection
%>
<% for each file in oFiles %>
| <%=file.filename%> |
<%=file.filelen%> |
<%=file.formname%> |
<%=oform(file.formname)%> |
<% next %>
<%
set oFiles = nothing
set oForm = nothing
%>
<%
set oFormItems = oUpload.FormItems 'return a Collection
'Note: oFormItems is another way to fetch form items.
%>
Demonstration of fetching form items:
<% for each item in oFormItems %>
| <%=item.name%> |
<%=item.value%> |
<% next %>
<%
set oFormItems = nothing
%>
<%
set oUpload = nothing
end if
%>